home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_A.d64 / psychotest i (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  157 lines
  1. 1 print"":poke53281,0:poke53280,7:a=0
  2. 2 print"":foru=1to300:nextu:goto50
  3. 3 print"[159]":foru=1to300:nextu:goto50
  4. 4 print"[156]":foru=1to300:nextu:goto50
  5. 5 print"":foru=1to300:nextu:goto50
  6. 6 print"":foru=1to300:nextu:goto50
  7. 7 print"[158]":foru=1to300:nextu:goto50
  8. 8 print"[149]":foru=1to300:nextu:goto50
  9. 9 print"[152]":foru=1to300:nextu:goto50
  10. 50 print:print"[147]":print:print:print
  11. 55 print"               [175][175][175][175][175][175][175][175][175][175]"
  12. 60 print"              [182]psychotest[181]"
  13. 70 print"         [175][210][198][195][196][197][183][183][183][183][183][183][183][183][183][183][197][196][195][198][210][175]"
  14. 80 print"         [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  15. 90 print"         [180]written by mr.joker![170]"
  16. 100 print"         [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  17. 110 print"         [180]written in 1990 ....[170]"
  18. 120 print"         [180]the text is in .....[170]"
  19. 130 print"         [180]german.have big fun![170]"
  20. 140 print"         [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  21. 145 a=a+1:ifa=10then goto170
  22. 150 cl=int(8*rnd(1))+1
  23. 160 oncl goto 2,3,4,5,6,7,8,9
  24. 170 forx=1to1000:nextx
  25. 180 print""
  26. 190 print"[147]"
  27. 200 print
  28. 210 print" du bekommst nun mehrere fragen"
  29. 220 print:print" gestellt.du musst auf jede"
  30. 230 print:print" frage antworten.du hast 3"
  31. 240 print:print" moeglichkeit zu antworten."
  32. 250 print:print" (1) du drueckst die [1] ,"
  33. 260 print:print" das heisst:ja."
  34. 270 print:print" (2) du drueckst die [2] ,"
  35. 280 print:print" das heisst:es geht so."
  36. 290 print:print" (3) du drueckst die [3] ,"
  37. 300 print:print" das heisst:nein."
  38. 310 print:print:print" am schluss wirst du deinen"
  39. 320 print:print" berufstip erhalten."
  40. 330 geta$:ifa$=""then330
  41. 340 print"[147]"
  42. 350 print"[159]"
  43. 360 print:print" magst du saubere arbeit?"
  44. 370 getb$:ifb$=""then370
  45. 380 print:print" bist du gut in sport?"
  46. 390 getc$:ifc$=""then390
  47. 400 print:print" trinkst du alkohol?"
  48. 410 getd$:ifd$=""then410
  49. 420 print:print" rauchst du?"
  50. 430 gete$:ife$=""then430
  51. 440 print:print" guckst du viel fern?"
  52. 450 getf$:iff$=""then450
  53. 460 print:print" ekelst du dich vor dreck?"
  54. 470 getg$:ifg$=""then470
  55. 480 print:print" magst du spinnen?"
  56. 490 geth$:ifh$=""then490
  57. 500 print:print" stinkst du?"
  58. 510 geti$:ifi$=""then510
  59. 520 print:print" guckst du pornos?"
  60. 530 getj$:ifj$=""then530
  61. 540 print:print" liebst du krieg?"
  62. 550 getk$:ifk$=""then550
  63. 560 print:print" wechselst du taeglich die socken?"
  64. 570 getl$:ifl$=""then570
  65. 580 print:print" heisst du >uwe blask<?"
  66. 590 getm$:ifm$=""then590
  67. 600 ifm$="1"then print"nimm die flossen vom computer!!!!!!"
  68. 610 print:print" guckst du viel kriegsfilme?"
  69. 620 getn$:ifn$=""then620
  70. 630 print:print" kannst du putzen?"
  71. 640 geto$:ifo$=""then640
  72. 650 print:print" warst du schon mal im knast?"
  73. 660 getp$:ifp$=""then660
  74. 670 print:print" bist du oft krank?"
  75. 680 getq$:ifq$=""then680
  76. 690 print:print" bist du ein junge?"
  77. 700 getr$:ifr$=""then700
  78. 710 print:print" schmierst du popel an deine klamotten?"
  79. 720 gets$:ifs$=""then720
  80. 730 ifb$="3" and  g$="3" and h$="1" and o$="1" then goto 2000
  81. 740 ifb$="1" and c$="1" and d$="3" and e$="3" and g$="1" and p$="3" then 2010
  82. 750 ifc$="1" and d$="3" and e$="3" and p$="3" then goto2020
  83. 760 ifd$="1" and e$="1" and i$="1" and l$="3" and p$="1"then goto 2030
  84. 770 ifc$="1" and g$="1" and i$="3" and j$="1" andr$="3" then goto 2040
  85. 780 ifk$="1" and n$="1" and r$="1" then goto2050
  86. 790 ifi$="1" and m$="1" then goto2060
  87. 800 ifc$="2" and h$="2" and r$="2" then goto2070
  88. 810 ife$="1" and i$="1" and k$="1" and s$="1" then goto2080
  89. 820 ifb$="3" and d$="1" and e$="1" and i$="1" and r$="1" and p$="1"then 2090
  90. 830 ifb$="2" and o$="1" then goto 2100
  91. 840 if b$="3" and g$="3" and h$="1" then goto2110
  92. 850 ifb$="1" and f$="1" and j$="1" and n$="1" then goto2110
  93. 860 ifh$="1" and r$="2" then goto 2120
  94. 870 ifb$="1" and g$="3" and l$="1" then goto 2130
  95. 880 ifc$="3" and d$="1" and f$="1" and q$="1" then goto 2140
  96. 890 ifm$="1" and i$="3" then goto2150
  97. 900 ifr$="1" and k$="1" and f$="1" then goto 2160
  98. 910 ifb$="3" and o$="3" then goto2170
  99. 920 ifs$="1" then goto 2180
  100. 930 ifr$="2" then goto 2190
  101. 940 ifq$="1" then goto 2200
  102. 950 ifp$="1" then goto 2210
  103. 960 ifm$="1" then goto 2220
  104. 970 ifk$="1" then goto 2230
  105. 980 ifi$="1" then goto 2240
  106. 990 ifd$="1" then goto 2250
  107. 1000 if c$="3" then goto 2260
  108. 1010 goto 2270
  109. 2000 print"[147]"
  110. 2001 print" in ihrem fall waehre der beruf gullireiniger optimal":goto 3000
  111. 2010 print"[147] sie sind ein elendiger arschkriecher!"
  112. 2011 print" sie sollten sekritaer werden!":goto3000
  113. 2020 print"[147] am besten waehre fuer sie ein vertrag"
  114. 2022 print" als profisportler in teebeutelweitwurf.":goto3000
  115. 2030 print"[147] das ergebnis lautet eindeutig penner.":goto3000
  116. 2040 print"[147] sie waeren super als betriebsnutte"
  117. 2042 print"geeignet.":goto3000
  118. 2050 print"[147] sind sie ein amoklaeufer  !sie wollen"
  119. 2052 print" doch nicht etwa ein nazi werden oder?killsuechtige sau!.":goto3000
  120. 2060 print"[147] eroeffnen sie eine knoblauchfabrik.":goto3000
  121. 2070 print"[147] dir ist nicht zu helfen.sind sie ein    marsmensch.":goto3000
  122. 2080 print"[147] sie sind ein seltsames geschoepf!!!":goto3000
  123. 2090 print"[147] nach ihren angaben koennten sie in"
  124. 2092 print" einer geisterbahn als monster arbeiten.":goto3000
  125. 2100 print"[147] da sie selbst aussehen wie ein "
  126. 2102 print" waschlappen werden sie doch putzfrau!":goto3000
  127. 2110 print"[147] sie sollten die altersbeschraenkung"
  128. 2112 print" von filmen bestimmen (zensur)":goto3000
  129. 2120 print"[147] gehen sie sofort zum zirkus!":goto3000
  130. 2130 print"[147] sie sind fuers buero geschaffen!"
  131. 2132 print"[147] werden sie ein armer buerofritze!!!!":goto3000
  132. 2140 print"[147] reichen sie lieber gleich die rente     ein.":goto3000
  133. 2150 print"[147] ich glaube ihnen kein wort!!!!!!!!!!!!":goto3000
  134. 2160 print"[147] werden sie ein berufszocker!!!!!!!!!!!":goto3000
  135. 2170 print"[147] klauen sie mirko die moebel und werden"
  136. 2173 print" sie muelltonnenleerfresser.":goto3000
  137. 2180 print"[147] sie sind der optimale nasenbohrer!"
  138. 2182 print" verdienen sie ihr geld mit oel.":goto3000
  139. 2190 print"[147] da sie zwidder sind koennen sie in "
  140. 2192 print" einen mischpuff arbeiten !":goto3000
  141. 2200 print"[147] die arbeit im leichenschauhaus passt"
  142. 2202 print" passt zu ihnen!!!!!el brutalos":goto3000
  143. 2210 print"[147] sie alter straefling koennten "
  144. 2212 print" knastberater werden.":goto3000
  145. 2220 print"[147] du bist doch schon lehrer.":goto3000
  146. 2230 print"[147] werden sie ein 2. adolf! (diktator)!":goto3000
  147. 2240 print"[147] so wie sie aussehen,werden sie doch     vogelscheuche!":goto3000
  148. 2250 print"[147] sie sollten der vorkotzer vom koenig    werden!":goto3000
  149. 2260 print"[147] da sie selbst so eine faule sau sind,"
  150. 2270 print" sollten sie faultierzuechter werden.":goto3000
  151. 2280 print"[147] sie geben so scheiss antworten,so das"
  152. 2290 print" keine ernsthafte bewertung moeglich ist"
  153. 3000 print" nochmal? (j/n)"
  154. 3001 gett$:ift$=""then3001
  155. 3004 ift$="j"thengoto340
  156. 3005 new
  157.